package body v8.Class_Handle is
   function Is_Empty (This : Handle_Object) return Boolean is
      val : Address;
      for val'Address use This'Address;
   begin
      return val = Null_Address;
   end Is_Empty;
   pragma Inline(Is_Empty);

   procedure Clear (This : in out Handle_Object) is
      val : Address;
      for val'Address use This'Address;
   begin
      val := Null_Address;
   end Clear;
   pragma Inline (Clear);

   function As_Object (this : Handle_Object) return Pointer is
      function Invoke is new Ada.Unchecked_Conversion(Handle, Pointer);
   begin
      return Invoke (this'Unrestricted_Access);
   end As_Object;
   pragma Inline (As_Object);


end v8.Class_Handle;
